inherited crdDebtor: TcrdDebtor
  Left = 173
  Top = 238
  Caption = #1050#1072#1088#1090#1086#1095#1082#1072' '#1076#1086#1083#1078#1085#1080#1082#1072
  ClientHeight = 595
  ClientWidth = 853
  Constraints.MinHeight = 400
  Constraints.MinWidth = 684
  Icon.Data = {
    0000010001002020000001002000A81000001600000028000000200000004000
    0000010020000000000080100000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000955E
    1C08955E1C11945E1C20945D1C22945D1C19945D1C0900000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000965F1D0899631E3899621E7699621EA09B64
    1EB29A631EBB98601DCA97601DCC99621DC39B641EB398611D8B98611D4B955E
    1D09000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000965F1D0498621E499A631EA597601DF3935C1BFF90581AFF8D561AFF8D55
    1AFF8C551AFF8C5419FF8B5419FF814E19FF774819FF8B5319FF8F581AFF955E
    1CED9A631E92925C1C2000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000009660
    1D0D9B651F7A986120E990581AFF8E571AFF8E571AFF8F581AFF90581AFF9059
    1AFF90581AFF8F571AFF8E571AFF845119FF7A4B19FF8E561CFF895118FF8850
    18FF8D561AFF99621E7200000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000009863
    1F9280531FFB986122FF90581AFF915A1BFF925B1BFF935C1CFF945D1CFF945D
    1CFF945D1CFF935B1CFF925B1BFF8A551BFF82511AFF935D20FF8B5419FF8951
    19FF8D561AFF99621E6600000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000099621E20935E
    1DF483521DFF986121FF925B1BFF945D1CFF965E1CFF97601DFF97601DFF9861
    1DFF97601DFF965F1CFF955E1CFF8D591CFF86541BFF986224FF8E561AFF8B53
    19FF90591BFF99621E4F00000000000000000000000000000000000000000000
    00000000000000000000000000000000000000000000000000009B641E71925A
    1BFF8B571CFF98611FFF965F1DFF98611DFF9A631EFF9B641EFF9C651FFF9C65
    1FFF9C651FFF9B641EFF9A621EFF925D1DFF89571CFF9D6828FF90591BFF8E56
    1AFF945D1CFF99631E2C00000000000000000000000000000000000000000000
    00000000000000000000000000000000000000000000000000009B641E79935C
    1BFF915B1CFF99621EFF99621DFF9B641EFF9D661FFF9F681FFFA0691FFFA069
    1FFFA0691FFF9E671FFF9D661FFF96611EFF89581DFFA26D2BFF935C1BFF9058
    1AFF98601DFD955F1E0C00000000000000000000000000000000000000000000
    00000000000000000000000000000000000000000000000000009B641E6B965E
    1CFF965F1DFF9A631EFF9D661EFFA0691FFFA26B20FFA36D21FFA46D21FFA56E
    21FFA46D21FFA36C21FFA16A20FF9C661FFF8A5A1DFFA26E2EFF996220FF935B
    1CFF99621ED70000000000000000000000000000000000000000000000000000
    00000000000000000000000000000000000000000000000000009B641E549860
    1DFF98611DFF9C651EFF9F681FFFA26C20FFA46E21FFA67022FFA87122FFA871
    22FFA77122FFA66F21FFA46D21FFA16A20FF97641FFF8F5F21FF9E6927FF965E
    1DFF9B641EA90000000000000000000000000000000000000000000000000000
    00000000000000000000000000000000000000000000000000009C651F269B64
    1EFF9A631EFF9F681FFFA26B20FFA56F21FFA87122FFAB7423FFAB7523FFAC75
    24FFAB7523FFAA7323FFA77022FFA46D21FFA16A20FF99631FFF95601FFF9B65
    21FD9D661F670000000000000000000000000000000000000000000000000000
    00000000000000000000000000000000000000000000000000009C651F059C65
    1EF19C651EFFA06920FFA46D21FFA77122FFAA7323FFAD7624FFAE7824FFAF78
    24FFAE7724FFAC7523FFAA7323FFA66F21FFA36C21FF9E671FFF99631EFF9C65
    21E79C66203D0000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000009D66
    1FA39E671FFFA16B20FFA56E21FFA97223FFAC7523FFB27C28FFB6802AFFB27C
    25FFB07A25FFAE7724FFAB7523FFA77122FFA46D21FFA0691FFFA06922FFA16A
    23AD9D67210E0000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000009E6A
    25549F6820F2A26B20FFA66F21FFA97323FFB07927FFC18B38FFC38D3AFFC68F
    39FFB57F28FFAF7824FFAC7524FFA87122FFA56E21FFA77126FFAE772EFF9D67
    204A000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000009E71
    330E9E6923A2A46D22FFA97224FFB07929FFA9752CF9998870FFA39682FFA37D
    48FFBF8B3EFFB17A28FFAB7523FFA97223FFAC7528FFB07930ECA26D267D0000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00009E6D2C26A16A22E1A66F26FFA66F26FF9B743FF18599AAFFA0B1C1FF95A2
    A8FF9D8E75FFA87226FFAB7423FFAD7729FFA77026EF9E692457A172300B0000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000009E73391599774933908673DE8C9BA6FD8498A9FF8396A7FF92A6
    B6FF92A7B8FF998564FFA67127FFA07234BA9D6F312A00000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000097A0A33894A8B9F798ACBDFF94A8B9FF8CA0B1FF8498
    A9FF8DA2B3FF8E9392FF978365E39A835F230000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000009F9B8F0596A4AEA19EB0C1FFA1B3C3FF98ACBDFF94A8B9FF8FA3
    B4FF8498A9FF889CADE8909FA948000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000009BA2A42093A8B9CAADBCCBFFA6B7C6FF9CAFBFFF95AABAFF92A7
    B8FF8EA2B3FF8B9BA7A48B8B8509000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000097A4AD429EB1C1ECB7C4D3FFACBCCBFFA0B3C3FF98ACBDFF93A8
    B9FF93A8B9F47C8C9898797E810A000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000093A6B560A9B9C8FCBAC8D5FFB0BFCEFFA4B5C5FF9CAFBFFF93A8
    B9FF93A8B9FD535F6BEA434A5253000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000093A8B995AFBECDFFBBC9D6FFB3C1D0FFA6B8C7FF9EB0C1FF6F7D
    8AFF7C8D9CFF4E5965FF2F353EEC3E454F200000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000092A7B8BBAEBDCCFFB8C4D2FFB0BECDFFA3B4C3FF99ABBBFF5E6A
    76FF3C444CFF2F353EFF2F353EFF3B434D820000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000006B77
    83026C7784028FA4B5CBA4B3C2FFA7B5C3FF96A3B0FF8794A2FF81909FFF525D
    67FF282E34FF2F353EFF2F353EFF2F353EB33F48520900000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000005963
    6E263D444E896B7A89D37B8794FF6A727DFF545B65FF3F464FFF383E47FF2C31
    39FF252930FF2F353EFF2F353EFF2F353FB23C444E0800000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000565F
    6A23353C45C730363FFF292E37FF262B33FF252A31FF242930FF272C34FF2E34
    3DFF2F353EFF2F353EFF313841FF353B45810000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000005D67
    72023A414A4C383F4AF43A414CFF2E343DFF2E343DFF2D333CFF2E343DFF2F35
    3EFF2F353EFF313741FF333A44FC333A432C0000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000363D463D363D48C5434C59FF3C444FFF373E49FF363D48FF373E
    48FF3A424CFF3E4652F5343B4581000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000464E59013E454F253239438C39414BE93F4754FF404955FF4048
    54FF3C434FF9343B4485363D4614000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000003339420430364035303640443036
    3F3D30363F140000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    03FFFFF0007FFF80001FFF00001FFF00001FFE00001FFE00001FFE00001FFE00
    003FFE00003FFE00003FFE00003FFF00003FFF00007FFF0000FFFF8000FFFFC0
    03FFFFE007FFFFC00FFFFFC00FFFFFC00FFFFFC00FFFFFC007FFFFC007FFFF00
    03FFFF0003FFFF0007FFFF0007FFFFC00FFFFFC00FFFFFF83FFFFFFFFFFF}
  OldCreateOrder = True
  ExplicitWidth = 869
  ExplicitHeight = 633
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 555
    Width = 853
    ExplicitTop = 555
    ExplicitWidth = 853
  end
  object PageControl1: TPageControl [1]
    Left = 0
    Top = 0
    Width = 853
    Height = 555
    ActivePage = tsOther
    Align = alClient
    TabOrder = 1
    object tsDebtor: TTabSheet
      Caption = #1044#1086#1083#1078#1085#1080#1082
      object Splitter1: TSplitter
        Left = 421
        Top = 0
        Width = 0
        Height = 527
        Beveled = True
        ExplicitHeight = 548
      end
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 421
        Height = 527
        Align = alLeft
        BevelOuter = bvNone
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Panel8: TPanel
          Left = 0
          Top = 210
          Width = 421
          Height = 317
          Align = alClient
          BevelOuter = bvNone
          TabOrder = 1
          object Panel10: TPanel
            Left = 0
            Top = 0
            Width = 207
            Height = 317
            Align = alLeft
            BevelOuter = bvNone
            TabOrder = 0
            object Panel12: TPanel
              Left = 0
              Top = 0
              Width = 207
              Height = 14
              Align = alTop
              BevelOuter = bvNone
              TabOrder = 1
              object Label15: TLabel
                Left = 2
                Top = -1
                Width = 62
                Height = 13
                Caption = #1058#1077#1083#1077#1092#1086#1085#1099
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = [fsBold]
                ParentFont = False
              end
            end
            object Panel11: TPanel
              Left = 0
              Top = 14
              Width = 207
              Height = 303
              Align = alClient
              BevelInner = bvRaised
              BevelOuter = bvLowered
              TabOrder = 0
              object Label13: TLabel
                Left = 4
                Top = 10
                Width = 55
                Height = 13
                Caption = #1044#1086#1084#1072#1096#1085#1080#1081
              end
              object Label14: TLabel
                Left = 15
                Top = 34
                Width = 44
                Height = 13
                Caption = #1057#1086#1090#1086#1074#1099#1081
              end
              object Label16: TLabel
                Left = 9
                Top = 58
                Width = 50
                Height = 13
                Caption = #1057#1086#1090#1086#1074#1099#1081'2'
              end
              object Label17: TLabel
                Left = 17
                Top = 82
                Width = 42
                Height = 13
                Caption = #1056#1072#1073#1086#1095#1080#1081
              end
              object DBEditEh10: TDBEditEh
                Left = 67
                Top = 7
                Width = 121
                Height = 19
                AlwaysShowBorder = True
                DataField = 'PHONE_HOME'
                DataSource = dscDebtor
                EditButtons = <>
                Flat = True
                ShowHint = True
                TabOrder = 0
                Visible = True
              end
              object DBEditEh11: TDBEditEh
                Left = 67
                Top = 31
                Width = 121
                Height = 19
                AlwaysShowBorder = True
                DataField = 'PHONE_CELL'
                DataSource = dscDebtor
                EditButtons = <>
                Flat = True
                ShowHint = True
                TabOrder = 1
                Visible = True
              end
              object DBEditEh12: TDBEditEh
                Left = 67
                Top = 55
                Width = 121
                Height = 19
                AlwaysShowBorder = True
                DataField = 'PHONE_CELL2'
                DataSource = dscDebtor
                EditButtons = <>
                Flat = True
                ShowHint = True
                TabOrder = 2
                Visible = True
              end
              object DBEditEh13: TDBEditEh
                Left = 67
                Top = 79
                Width = 121
                Height = 19
                AlwaysShowBorder = True
                DataField = 'PHONE_WORK'
                DataSource = dscDebtor
                EditButtons = <>
                Flat = True
                ShowHint = True
                TabOrder = 3
                Visible = True
              end
            end
          end
          object Panel6: TPanel
            Left = 207
            Top = 0
            Width = 214
            Height = 317
            Align = alClient
            BevelOuter = bvNone
            Caption = 'Panel6'
            TabOrder = 1
            object Panel9: TPanel
              Left = 0
              Top = 14
              Width = 214
              Height = 303
              Align = alClient
              BevelOuter = bvLowered
              Caption = 'Panel4'
              TabOrder = 0
              object DBMemo1: TDBMemo
                Left = 1
                Top = 1
                Width = 212
                Height = 301
                Align = alClient
                BorderStyle = bsNone
                DataField = 'NOTES'
                DataSource = dscDebtor
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                ParentFont = False
                TabOrder = 0
              end
            end
            object Panel13: TPanel
              Left = 0
              Top = 0
              Width = 214
              Height = 14
              Align = alTop
              BevelOuter = bvNone
              TabOrder = 1
              object Label9: TLabel
                Left = 2
                Top = -1
                Width = 52
                Height = 13
                Caption = #1047#1072#1084#1077#1090#1082#1080
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = [fsBold]
                ParentFont = False
              end
            end
          end
        end
        object Panel7: TPanel
          Left = 0
          Top = 0
          Width = 421
          Height = 210
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 0
          object Label1: TLabel
            Left = 8
            Top = 6
            Width = 31
            Height = 13
            Alignment = taRightJustify
            Caption = #1060#1048#1054
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label2: TLabel
            Left = 6
            Top = 49
            Width = 93
            Height = 13
            Caption = #1044#1072#1090#1072' '#1088#1086#1078#1076#1077#1085#1080#1103
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label5: TLabel
            Left = 6
            Top = 71
            Width = 32
            Height = 13
            Caption = #1059#1083#1080#1094#1072
          end
          object Label6: TLabel
            Left = 255
            Top = 71
            Width = 23
            Height = 13
            Caption = #1044#1086#1084
          end
          object Label7: TLabel
            Left = 353
            Top = 71
            Width = 13
            Height = 13
            Caption = #1050#1074
          end
          object Label18: TLabel
            Left = 6
            Top = 114
            Width = 101
            Height = 13
            Caption = #1056#1077#1072#1083#1100#1085#1086' '#1087#1088#1086#1078#1080#1074#1072#1077#1090
          end
          object Label12: TLabel
            Left = 6
            Top = 93
            Width = 72
            Height = 13
            Caption = #1052#1077#1089#1090#1086' '#1088#1072#1073#1086#1090#1099
          end
          object Label4: TLabel
            Left = 6
            Top = 137
            Width = 51
            Height = 13
            Caption = #1044#1086#1082#1091#1084#1077#1085#1090
          end
          object Label10: TLabel
            Left = 184
            Top = 159
            Width = 32
            Height = 13
            Caption = #1074#1099#1076#1072#1085
          end
          object Label11: TLabel
            Left = 6
            Top = 180
            Width = 56
            Height = 13
            Caption = #1050#1077#1084' '#1074#1099#1076#1072#1085
          end
          object Label19: TLabel
            Left = 110
            Top = 159
            Width = 11
            Height = 13
            Caption = #8470
          end
          object Label20: TLabel
            Left = 28
            Top = 159
            Width = 30
            Height = 13
            Caption = #1089#1077#1088#1080#1103
          end
          object Label21: TLabel
            Left = 8
            Top = 27
            Width = 30
            Height = 13
            Caption = #1043#1086#1088#1086#1076
          end
          object DBEditEh1: TDBEditEh
            Left = 44
            Top = 3
            Width = 371
            Height = 19
            AlwaysShowBorder = True
            DataField = 'NAME'
            DataSource = dscDebtor
            EditButtons = <>
            Flat = True
            ShowHint = True
            TabOrder = 0
            Visible = True
          end
          object DBDateTimeEditEh1: TDBDateTimeEditEh
            Left = 106
            Top = 46
            Width = 82
            Height = 19
            AlwaysShowBorder = True
            DataField = 'BIRTH_DATE'
            DataSource = dscDebtor
            EditButtons = <>
            Flat = True
            Kind = dtkDateEh
            ShowHint = True
            TabOrder = 1
            Visible = True
          end
          object DBEditEh2: TDBEditEh
            Left = 369
            Top = 68
            Width = 45
            Height = 19
            AlwaysShowBorder = True
            DataField = 'APPARTS'
            DataSource = dscDebtor
            EditButtons = <>
            Flat = True
            ShowHint = True
            TabOrder = 2
            Visible = True
          end
          object DBEditEh14: TDBEditEh
            Left = 112
            Top = 112
            Width = 303
            Height = 19
            AlwaysShowBorder = True
            DataField = 'REAL_ADDRESS'
            DataSource = dscDebtor
            EditButtons = <>
            Flat = True
            ShowHint = True
            TabOrder = 3
            Visible = True
          end
          object DBEditEh9: TDBEditEh
            Left = 82
            Top = 90
            Width = 333
            Height = 19
            AlwaysShowBorder = True
            DataField = 'WORKPLACE'
            DataSource = dscDebtor
            EditButtons = <>
            Flat = True
            ShowHint = True
            TabOrder = 4
            Visible = True
          end
          object dbcbStreets: TDBLookupComboboxEh
            Left = 48
            Top = 68
            Width = 201
            Height = 19
            AlwaysShowBorder = True
            AutoSelect = False
            DataField = 'STREET'
            DataSource = dscDebtor
            EditButton.Style = ebsEllipsisEh
            EditButtons = <>
            Flat = True
            KeyField = 'STREET'
            ListField = 'STREET'
            ListSource = MAINDM.dscStreets
            ShowHint = True
            Style = csDropDownEh
            TabOrder = 5
            Visible = True
          end
          object DBEditEh7: TDBEditEh
            Left = 286
            Top = 68
            Width = 59
            Height = 19
            AlwaysShowBorder = True
            DataField = 'HOUSE'
            DataSource = dscDebtor
            EditButtons = <>
            Flat = True
            ShowHint = True
            TabOrder = 6
            Visible = True
          end
          object DBEditEh8: TDBEditEh
            Left = 124
            Top = 156
            Width = 57
            Height = 19
            AlwaysShowBorder = True
            DataField = 'IDENTITY_NO'
            DataSource = dscDebtor
            EditButtons = <>
            Flat = True
            ShowHint = True
            TabOrder = 7
            Visible = True
          end
          object DBDateTimeEditEh2: TDBDateTimeEditEh
            Left = 220
            Top = 156
            Width = 82
            Height = 19
            AlwaysShowBorder = True
            DataField = 'IDENTITY_DATE'
            DataSource = dscDebtor
            EditButtons = <>
            Flat = True
            Kind = dtkDateEh
            ShowHint = True
            TabOrder = 8
            Visible = True
          end
          object DBEditEh15: TDBEditEh
            Left = 68
            Top = 177
            Width = 351
            Height = 19
            AlwaysShowBorder = True
            DataField = 'IDENTITY_ISSUE'
            DataSource = dscDebtor
            EditButtons = <>
            Flat = True
            ShowHint = True
            TabOrder = 9
            Visible = True
          end
          object DBEditEh16: TDBEditEh
            Left = 62
            Top = 134
            Width = 353
            Height = 19
            AlwaysShowBorder = True
            DataField = 'IDENTITY_TYPE'
            DataSource = dscDebtor
            EditButtons = <>
            Flat = True
            ShowHint = True
            TabOrder = 10
            Visible = True
          end
          object DBEditEh17: TDBEditEh
            Left = 62
            Top = 156
            Width = 43
            Height = 19
            AlwaysShowBorder = True
            DataField = 'IDENTITY_SERIA'
            DataSource = dscDebtor
            EditButtons = <>
            Flat = True
            ShowHint = True
            TabOrder = 11
            Visible = True
          end
          object DBLookupComboboxEh1: TDBLookupComboboxEh
            Left = 50
            Top = 24
            Width = 365
            Height = 19
            AlwaysShowBorder = True
            AutoSelect = False
            DataField = 'TOWN'
            DataSource = dscDebtor
            EditButtons = <>
            Flat = True
            KeyField = 'NAME'
            ListField = 'NAME'
            ListSource = MAINDM.dscTowns
            ShowHint = True
            TabOrder = 12
            Visible = True
          end
        end
      end
      object Panel2: TPanel
        Left = 421
        Top = 0
        Width = 424
        Height = 527
        Align = alClient
        BevelOuter = bvNone
        Caption = 'Panel2'
        Constraints.MinWidth = 250
        TabOrder = 1
        object Panel5: TPanel
          Left = 0
          Top = 0
          Width = 424
          Height = 488
          Align = alClient
          BevelOuter = bvLowered
          Caption = 'Panel5'
          TabOrder = 0
          object EDBImage1: TDBImage
            Left = 1
            Top = 1
            Width = 422
            Height = 486
            Align = alClient
            BorderStyle = bsNone
            DataField = 'DEBTPHOTO'
            DataSource = dscDebtor
            TabOrder = 0
          end
        end
        object Panel3: TPanel
          Left = 0
          Top = 488
          Width = 424
          Height = 39
          Align = alBottom
          BevelOuter = bvNone
          TabOrder = 1
          DesignSize = (
            424
            39)
          object Panel14: TPanel
            Left = 86
            Top = 1
            Width = 249
            Height = 38
            Anchors = [akTop]
            BevelOuter = bvSpace
            TabOrder = 0
            object BitBtn1: TBitBtn
              Left = 2
              Top = 0
              Width = 77
              Height = 36
              Action = FileOpen1
              DoubleBuffered = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentDoubleBuffered = False
              ParentFont = False
              TabOrder = 0
            end
            object BitBtn4: TBitBtn
              Left = 84
              Top = 0
              Width = 77
              Height = 36
              Action = aPhotoDelete
              DoubleBuffered = True
              ParentDoubleBuffered = False
              TabOrder = 1
            end
            object BitBtn5: TBitBtn
              Left = 166
              Top = 0
              Width = 77
              Height = 36
              Action = aEnlage
              DoubleBuffered = True
              ParentDoubleBuffered = False
              TabOrder = 2
            end
          end
        end
      end
    end
    object tsOther: TTabSheet
      Caption = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1086
      ImageIndex = 1
      object GroupBox2: TGroupBox
        Left = 0
        Top = 463
        Width = 845
        Height = 64
        Align = alBottom
        Caption = ' '#1057#1083#1091#1078#1077#1073#1085#1099#1077' '#1076#1072#1085#1085#1099#1077' '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        object Label3: TLabel
          Left = 26
          Top = 20
          Width = 43
          Height = 13
          Alignment = taRightJustify
          Caption = #1057#1086#1079#1076#1072#1085#1086
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label8: TLabel
          Left = 17
          Top = 42
          Width = 52
          Height = 13
          Alignment = taRightJustify
          Caption = #1048#1079#1084#1077#1085#1077#1085#1086
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object DBEditEh3: TDBEditEh
          Left = 80
          Top = 18
          Width = 121
          Height = 19
          AlwaysShowBorder = True
          Color = clBtnFace
          DataField = 'CREATOR'
          DataSource = dscDebtor
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 0
          Visible = True
        end
        object DBEditEh4: TDBEditEh
          Left = 202
          Top = 18
          Width = 73
          Height = 19
          AlwaysShowBorder = True
          Color = clBtnFace
          DataField = 'CREATEDATE'
          DataSource = dscDebtor
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 1
          Visible = True
        end
        object DBEditEh5: TDBEditEh
          Left = 202
          Top = 40
          Width = 73
          Height = 19
          AlwaysShowBorder = True
          Color = clBtnFace
          DataField = 'MODIFYDATE'
          DataSource = dscDebtor
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 2
          Visible = True
        end
        object DBEditEh6: TDBEditEh
          Left = 80
          Top = 40
          Width = 121
          Height = 19
          AlwaysShowBorder = True
          Color = clBtnFace
          DataField = 'MODIFIER'
          DataSource = dscDebtor
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 3
          Visible = True
        end
      end
      object GroupBox1: TGroupBox
        Left = 0
        Top = 217
        Width = 845
        Height = 217
        Align = alTop
        Caption = #1059#1095#1072#1089#1090#1074#1091#1077#1090' '#1074' '#1076#1086#1083#1075#1072#1093
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object dbgProperties: TDBGridEh
          Left = 2
          Top = 15
          Width = 841
          Height = 200
          Align = alClient
          DataGrouping.GroupLevels = <>
          DataSource = dscDebts
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          FooterColor = clInactiveCaptionText
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = [fsBold]
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          ParentFont = False
          RowDetailPanel.Color = clBtnFace
          RowHeight = 28
          RowSizingAllowed = True
          SumList.Active = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          OnDblClick = aPropEditExecute
          Columns = <
            item
              EditButtons = <>
              FieldName = 'TOWN'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'CONTRAGENT'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'PERIOD'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'KIND'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'SUMMA_CUR'
              Footers = <>
            end
            item
              Checkboxes = True
              EditButtons = <>
              FieldName = 'CLOSED'
              Footers = <>
            end>
          object RowDetailData: TRowDetailPanelControlEh
          end
        end
      end
      object GroupBox3: TGroupBox
        Left = 0
        Top = 0
        Width = 845
        Height = 217
        Align = alTop
        Caption = #1057#1086#1073#1089#1090#1074#1077#1085#1085#1086#1089#1090#1100
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        object ToolBar1: TToolBar
          Left = 2
          Top = 15
          Width = 841
          Height = 24
          Caption = 'ToolBar1'
          Images = MainForm.ImageList2
          TabOrder = 0
          object ToolButton1: TToolButton
            Left = 0
            Top = 0
            Action = aPropAdd
          end
          object ToolButton2: TToolButton
            Left = 23
            Top = 0
            Action = aPropEdit
          end
          object ToolButton3: TToolButton
            Left = 46
            Top = 0
            Width = 8
            Caption = 'ToolButton18'
            ImageIndex = 1
            Style = tbsSeparator
          end
          object ToolButton4: TToolButton
            Left = 54
            Top = 0
            Action = aPropDel
          end
        end
        object DBGridEh1: TDBGridEh
          Left = 2
          Top = 39
          Width = 841
          Height = 176
          Align = alClient
          DataGrouping.GroupLevels = <>
          DataSource = dscDebtProperty
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          FooterColor = clInactiveCaptionText
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = [fsBold]
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          ParentFont = False
          RowDetailPanel.Color = clBtnFace
          RowHeight = 28
          RowSizingAllowed = True
          SumList.Active = True
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          OnDblClick = aPropEditExecute
          Columns = <
            item
              EditButtons = <>
              FieldName = 'ID'
              Footers = <>
              Width = 43
            end
            item
              EditButtons = <>
              FieldName = 'DEBTOR_ID'
              Footers = <>
              Visible = False
            end
            item
              EditButtons = <>
              FieldName = 'PROP_NAME'
              Footers = <>
              Width = 125
            end
            item
              EditButtons = <>
              FieldName = 'PROP_NOTES'
              Footers = <>
              Width = 139
            end
            item
              EditButtons = <>
              FieldName = 'CREATOR'
              Footers = <>
              Width = 81
            end
            item
              EditButtons = <>
              FieldName = 'CREATEDATE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'MODIFIER'
              Footers = <>
              Width = 76
            end
            item
              EditButtons = <>
              FieldName = 'MODIFYDATE'
              Footers = <>
            end>
          object RowDetailData: TRowDetailPanelControlEh
          end
        end
      end
    end
  end
  inherited ActionList1: TActionList
    object aPhotoDelete: TAction [2]
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1092#1086#1090#1086#1075#1088#1072#1092#1080#1102' '#1080#1079' '#1041#1044
      ImageIndex = 26
      OnExecute = aPhotoDeleteExecute
    end
    object aEnlage: TAction
      Hint = #1059#1074#1077#1083#1080#1095#1080#1090#1100
      ImageIndex = 3
      OnExecute = aEnlageExecute
    end
    object FileOpen1: TFileOpen
      Category = 'File'
      Dialog.Filter = 
        #1043#1088#1072#1092#1080#1095#1077#1089#1082#1080#1077' '#1092#1072#1081#1083#1099' (*.bmp;*.jpg;*.jpeg;*.gif)|*.bmp;*.jpg;*.jpeg;' +
        '*.gif'
      Hint = #1054#1090#1082#1088#1099#1090#1100' '#1092#1072#1081#1083' '#1089' '#1092#1086#1090#1086' '#1076#1083#1103' '#1079#1072#1075#1088#1091#1079#1082#1080' '#1074' '#1041#1044
      ImageIndex = 27
      ShortCut = 16463
      OnAccept = FileOpen1Accept
    end
  end
  inherited PropStorageEh1: TPropStorageEh
    Section = 'crdDebtor'
  end
  object trDebtor: TpFIBTransaction
    DefaultDatabase = MAINDM.MainDB
    TimeoutAction = TARollback
    Left = 668
    Top = 51
  end
  object dsDebtor: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE RST_DEBTORS'
      'SET '
      '    NAME = :NAME,'
      '    BIRTH_DATE = :BIRTH_DATE,'
      '    TOWN = :TOWN,'
      '    STREET = :STREET,'
      '    HOUSE = :HOUSE,'
      '    APPARTS = :APPARTS,'
      '    NOTES = :NOTES,'
      '    DEBTPHOTO = :DEBTPHOTO,'
      '    IS_DELETED = :IS_DELETED,'
      '    IS_FIRM = :IS_FIRM,'
      '    PHONE_HOME = :PHONE_HOME,'
      '    PHONE_CELL = :PHONE_CELL,'
      '    PHONE_CELL2 = :PHONE_CELL2,'
      '    PHONE_WORK = :PHONE_WORK,'
      '    WORKPLACE = :WORKPLACE,'
      '    REAL_ADDRESS = :REAL_ADDRESS,'
      '    identity_type = :identity_type,'
      '    identity_seria = :identity_seria,'
      '    identity_no = :identity_no,'
      '    identity_date = :identity_date,'
      '    identity_issue = :identity_issue'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    RST_DEBTORS'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO RST_DEBTORS('
      '    NAME,'
      '    BIRTH_DATE,'
      '    TOWN,'
      '    STREET,'
      '    HOUSE,'
      '    APPARTS,'
      '    NOTES,'
      '    DEBTPHOTO,'
      '    IS_DELETED,'
      '    IS_FIRM,'
      '    PHONE_HOME,'
      '    PHONE_CELL,'
      '    PHONE_CELL2,'
      '    PHONE_WORK,'
      '    WORKPLACE,'
      '    REAL_ADDRESS,'
      '    identity_type,'
      '    identity_seria,'
      '    identity_no,'
      '    identity_date,'
      '    identity_issue'
      ')'
      'VALUES('
      '    :NAME,'
      '    :BIRTH_DATE,'
      '    :TOWN,'
      '    :STREET,'
      '    :HOUSE,'
      '    :APPARTS,'
      '    :NOTES,'
      '    :DEBTPHOTO,'
      '    :IS_DELETED,'
      '    :IS_FIRM,'
      '    :PHONE_HOME,'
      '    :PHONE_CELL,'
      '    :PHONE_CELL2,'
      '    :PHONE_WORK,'
      '    :WORKPLACE,'
      '    :REAL_ADDRESS,'
      '    :identity_type,'
      '    :identity_seria,'
      '    :identity_no,'
      '    :identity_date,'
      '    :identity_issue'
      ')')
    RefreshSQL.Strings = (
      'select'
      '    d.id,'
      '    d.name,'
      '    d.birth_date, '
      '    d.town,'
      '    d.street,'
      '    d.house,'
      '    d.apparts,'
      '    d.notes,'
      '    d.debtphoto,'
      '    d.is_deleted,'
      '    d.is_firm,'
      
        '    (select rname from PR_GET_USER_NAME(d.createuserid)) as crea' +
        'tor,'
      '    d.createdate,'
      
        '    (select rname from PR_GET_USER_NAME(d.modifyuserid)) as modi' +
        'fier,'
      '    d.modifydate,'
      '    d.phone_home,'
      '    d.phone_cell,'
      '    d.phone_cell2,'
      '    d.phone_work,'
      '    d.workplace,'
      '    d.real_address,'
      '    d.identity_type,'
      '    d.identity_seria,'
      '    d.identity_no,'
      '    d.identity_date,'
      '    d.identity_issue'
      'from'
      '    rst_debtors d'
      'where(  d.id = :pdebtor_id'
      '     ) and (     D.ID = :OLD_ID'
      '     )'
      '    ')
    SelectSQL.Strings = (
      'select'
      '    d.id,'
      '    d.name,'
      '    d.birth_date,'
      '    d.town,'
      '    d.street,'
      '    d.house,'
      '    d.apparts,'
      '    d.notes,'
      '    d.debtphoto,'
      '    d.is_deleted,'
      '    d.is_firm,'
      
        '    (select rname from PR_GET_USER_NAME(d.createuserid)) as crea' +
        'tor,'
      '    d.createdate,'
      
        '    (select rname from PR_GET_USER_NAME(d.modifyuserid)) as modi' +
        'fier,'
      '    d.modifydate,'
      '    d.phone_home,'
      '    d.phone_cell,'
      '    d.phone_cell2,'
      '    d.phone_work,'
      '    d.workplace,'
      '    d.real_address,'
      '    d.identity_type,'
      '    d.identity_seria,'
      '    d.identity_no,'
      '    d.identity_date,'
      '    d.identity_issue'
      'from'
      '    rst_debtors d'
      'where d.id = :pdebtor_id')
    Transaction = trDebtor
    Database = MAINDM.MainDB
    Left = 642
    Top = 51
    object dsDebtorID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsDebtorNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object dsDebtorBIRTH_DATE: TFIBDateField
      FieldName = 'BIRTH_DATE'
    end
    object dsDebtorSTREET: TFIBStringField
      FieldName = 'STREET'
      Size = 60
      EmptyStrToNull = True
    end
    object dsDebtorHOUSE: TFIBStringField
      FieldName = 'HOUSE'
      Size = 16
      EmptyStrToNull = True
    end
    object dsDebtorAPPARTS: TFIBStringField
      FieldName = 'APPARTS'
      Size = 16
      EmptyStrToNull = True
    end
    object dsDebtorNOTES: TFIBStringField
      FieldName = 'NOTES'
      Size = 255
      EmptyStrToNull = True
    end
    object dsDebtorDEBTPHOTO: TFIBBlobField
      FieldName = 'DEBTPHOTO'
      Size = 8
    end
    object dsDebtorIS_DELETED: TFIBSmallIntField
      FieldName = 'IS_DELETED'
    end
    object dsDebtorIS_FIRM: TFIBSmallIntField
      FieldName = 'IS_FIRM'
    end
    object dsDebtorCREATOR: TFIBStringField
      FieldName = 'CREATOR'
      Size = 100
      EmptyStrToNull = True
    end
    object dsDebtorCREATEDATE: TFIBDateField
      FieldName = 'CREATEDATE'
    end
    object dsDebtorMODIFIER: TFIBStringField
      FieldName = 'MODIFIER'
      Size = 100
      EmptyStrToNull = True
    end
    object dsDebtorMODIFYDATE: TFIBDateField
      FieldName = 'MODIFYDATE'
    end
    object dsDebtorPHONE_HOME: TFIBStringField
      FieldName = 'PHONE_HOME'
      Size = 16
      EmptyStrToNull = True
    end
    object dsDebtorPHONE_CELL: TFIBStringField
      FieldName = 'PHONE_CELL'
      Size = 16
      EmptyStrToNull = True
    end
    object dsDebtorPHONE_CELL2: TFIBStringField
      FieldName = 'PHONE_CELL2'
      Size = 16
      EmptyStrToNull = True
    end
    object dsDebtorPHONE_WORK: TFIBStringField
      FieldName = 'PHONE_WORK'
      Size = 16
      EmptyStrToNull = True
    end
    object dsDebtorWORKPLACE: TFIBStringField
      FieldName = 'WORKPLACE'
      Size = 255
      EmptyStrToNull = True
    end
    object dsDebtorREAL_ADDRESS: TFIBStringField
      FieldName = 'REAL_ADDRESS'
      Size = 255
      EmptyStrToNull = True
    end
    object dsDebtorIDENTITY_TYPE: TFIBStringField
      FieldName = 'IDENTITY_TYPE'
      Size = 32
      EmptyStrToNull = True
    end
    object dsDebtorIDENTITY_NO: TFIBStringField
      FieldName = 'IDENTITY_NO'
      Size = 16
      EmptyStrToNull = True
    end
    object dsDebtorIDENTITY_DATE: TFIBDateField
      FieldName = 'IDENTITY_DATE'
    end
    object dsDebtorIDENTITY_ISSUE: TFIBStringField
      FieldName = 'IDENTITY_ISSUE'
      Size = 120
      EmptyStrToNull = True
    end
    object dsDebtorIDENTITY_SERIA: TFIBStringField
      FieldName = 'IDENTITY_SERIA'
      Size = 16
      EmptyStrToNull = True
    end
    object dsDebtorTOWN: TFIBStringField
      FieldName = 'TOWN'
      Size = 32
      EmptyStrToNull = True
    end
  end
  object dsStreets: TpFIBDataSet
    RefreshSQL.Strings = (
      'select'
      'cast(0 as integer) as ID,'
      'cast('#39#1042#1089#1077' '#1091#1083#1080#1094#1099#39' as varchar(60)) as NAME'
      'from rdb$database'
      'union'
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    SPR_STREETS ')
    SelectSQL.Strings = (
      'select'
      'cast(0 as integer) as ID,'
      'cast('#39#1042#1089#1077' '#1091#1083#1080#1094#1099#39' as varchar(60)) as NAME'
      'from rdb$database'
      'union'
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    SPR_STREETS '
      'order by 1')
    Transaction = trDebtor
    Database = MAINDM.MainDB
    Left = 640
    Top = 90
  end
  object dscStreets: TDataSource
    DataSet = dsStreets
    Left = 671
    Top = 89
  end
  object dscDebtor: TDataSource
    DataSet = dsDebtor
    OnDataChange = dscDebtorDataChange
    Left = 703
    Top = 51
  end
  object dsDebtorCreate: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE RST_DEBTS'
      'SET '
      '    TYPE_ID = :TYPE_ID,'
      '    CONTRAGENT_ID = :CONTRAGENT_ID,'
      '    DEBTOR_ID = :DEBTOR_ID,'
      '    COLLECTOR_ID = :COLLECTOR_ID,'
      '    BDATE = :BDATE,'
      '    SUMMA = :SUMMA,'
      '    PRIZE_PERCENT = :PRIZE_PERCENT,'
      '    PRIZE_MIN = :PRIZE_MIN,'
      '    PRIZE_FIX = :PRIZE_FIX,'
      '    IS_DELETED = :IS_DELETED,'
      '    CLOSED = :CLOSED,'
      '    CLOSE_DATE = :CLOSE_DATE,'
      '    PAID_METHOD = :PAID_METHOD,'
      '    NOTES = :NOTES'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    RST_DEBTS'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO RST_DEBTS('
      '    ID,'
      '    TYPE_ID,'
      '    CONTRAGENT_ID,'
      '    DEBTOR_ID,'
      '    COLLECTOR_ID,'
      '    BDATE,'
      '    SUMMA,'
      '    PRIZE_PERCENT,'
      '    PRIZE_MIN,'
      '    PRIZE_FIX,'
      '    IS_DELETED,'
      '    CLOSED,'
      '    CLOSE_DATE,'
      '    PAID_METHOD,'
      '    NOTES'
      ')'
      'VALUES('
      '    :ID,'
      '    :TYPE_ID,'
      '    :CONTRAGENT_ID,'
      '    :DEBTOR_ID,'
      '    :COLLECTOR_ID,'
      '    :BDATE,'
      '    :SUMMA,'
      '    :PRIZE_PERCENT,'
      '    :PRIZE_MIN,'
      '    :PRIZE_FIX,'
      '    :IS_DELETED,'
      '    :CLOSED,'
      '    :CLOSE_DATE,'
      '    :PAID_METHOD,'
      '    :NOTES'
      ')')
    RefreshSQL.Strings = (
      'SELECT'
      '    d.id,'
      '    d.type_id,'
      '    d.contragent_id,'
      '    d.debtor_id,'
      '    d.collector_id,'
      '    d.bdate,'
      '    d.summa,'
      '    d.prize_percent,'
      '    d.prize_min,'
      '    d.prize_fix,'
      '    d.is_deleted,'
      '    d.closed,'
      '    d.close_date,'
      '    d.paid_method,'
      '    d.notes,'
      
        '    (select rname from PR_GET_USER_NAME(d.createuserid)) as crea' +
        'tor,'
      '    d.createdate,'
      
        '    (select rname from PR_GET_USER_NAME(d.modifyuserid)) as modi' +
        'fier,'
      '    d.modifydate'
      'FROM'
      '    RST_DEBTS d'
      'where(  d.id = :pdebt_id'
      '     ) and (     D.ID = :OLD_ID'
      '     )'
      '    ')
    SelectSQL.Strings = (
      'SELECT'
      '    RID'
      'FROM'
      '    RST_DEBTORS_INS ')
    AllowedUpdateKinds = []
    Transaction = trDebtor
    Database = MAINDM.MainDB
    Left = 641
    Top = 122
    object dsDebtorCreateRID: TFIBIntegerField
      FieldName = 'RID'
    end
  end
  object ActionList2: TActionList
    Images = MainForm.ImageList2
    Left = 566
    Top = 10
    object aPropAdd: TAction
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100' '#1089#1086#1073#1089#1090#1074#1077#1085#1085#1086#1089#1090#1100
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1089#1086#1073#1089#1090#1074#1077#1085#1085#1086#1089#1090#1100' '#1076#1086#1083#1078#1085#1080#1082#1072
      ImageIndex = 1
      OnExecute = aPropAddExecute
    end
    object aPropEdit: TAction
      Caption = #1048#1079#1084#1077#1085#1080#1090#1100' '#1080#1085#1092#1086#1088#1084#1072#1094#1080#1102' '#1086' '#1089#1086#1073#1089#1074#1090#1077#1085#1085#1086#1089#1090#1080
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100' '#1080#1085#1092#1086#1088#1084#1072#1094#1080#1102' '#1086' '#1089#1086#1073#1089#1074#1090#1077#1085#1085#1086#1089#1090#1080
      ImageIndex = 3
      OnExecute = aPropEditExecute
    end
    object aPropDel: TAction
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1080#1085#1092#1086#1088#1084#1072#1094#1080#1102' '#1086' '#1089#1086#1073#1089#1090#1074#1077#1085#1086#1089#1090#1080' '#1076#1086#1083#1078#1085#1080#1082#1072
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1080#1085#1092#1086#1088#1084#1072#1094#1080#1102' '#1086' '#1089#1086#1073#1089#1090#1074#1077#1085#1086#1089#1090#1080' '#1076#1086#1083#1078#1085#1080#1082#1072
      ImageIndex = 0
      OnExecute = aPropDelExecute
    end
  end
  object dsDebtProperty: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE RST_DEBTOR_PROPERTY'
      'SET '
      '    PROP_NAME = :PROP_NAME,'
      '    PROP_NOTES = :PROP_NOTES,'
      '    IS_DELETED = :IS_DELETED'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    RST_DEBTOR_PROPERTY'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO RST_DEBTOR_PROPERTY('
      '    ID,'
      '    DEBTOR_ID,'
      '    PROP_NAME,'
      '    PROP_NOTES'
      ')'
      'VALUES('
      '    :ID,'
      '    :DEBTOR_ID,'
      '    :PROP_NAME,'
      '    :PROP_NOTES'
      ')')
    RefreshSQL.Strings = (
      'SELECT'
      '    dp.ID,'
      '    dp.DEBTOR_ID,'
      '    dp.PROP_NAME,'
      '    dp.PROP_NOTES,'
      
        '    (select rname from PR_GET_USER_NAME(dp.createuserid)) as cre' +
        'ator,'
      '    dp.createdate,'
      
        '    (select rname from PR_GET_USER_NAME(dp.modifyuserid)) as mod' +
        'ifier,'
      '    dp.modifydate,'
      '    dp.is_deleted'
      'FROM'
      '    RST_DEBTOR_PROPERTY dp '
      'where(  dp.DEBTOR_ID = :pdebtor_id'
      '  and dp.IS_DELETED = 0'
      '     ) and (     DP.ID = :OLD_ID'
      '     )'
      '    ')
    SelectSQL.Strings = (
      'SELECT'
      '    dp.ID,'
      '    dp.DEBTOR_ID,'
      '    dp.PROP_NAME,'
      '    dp.PROP_NOTES,'
      
        '    (select rname from PR_GET_USER_NAME(dp.createuserid)) as cre' +
        'ator,'
      '    dp.createdate,'
      
        '    (select rname from PR_GET_USER_NAME(dp.modifyuserid)) as mod' +
        'ifier,'
      '    dp.modifydate,'
      '    dp.is_deleted'
      'FROM'
      '    RST_DEBTOR_PROPERTY dp '
      'where dp.DEBTOR_ID = :pdebtor_id'
      '  and dp.IS_DELETED <> 1')
    Transaction = trDebtor
    Database = MAINDM.MainDB
    Left = 644
    Top = 152
    object dsDebtPropertyID: TFIBIntegerField
      DisplayLabel = #1048#1044
      FieldName = 'ID'
    end
    object dsDebtPropertyDEBTOR_ID: TFIBIntegerField
      FieldName = 'DEBTOR_ID'
    end
    object dsDebtPropertyPROP_NAME: TFIBStringField
      DisplayLabel = #1053#1072#1079#1074#1072#1085#1080#1077
      FieldName = 'PROP_NAME'
      Size = 32
      EmptyStrToNull = True
    end
    object dsDebtPropertyPROP_NOTES: TFIBStringField
      DisplayLabel = #1054#1087#1080#1089#1072#1085#1080#1077
      FieldName = 'PROP_NOTES'
      Size = 1000
      EmptyStrToNull = True
    end
    object dsDebtPropertyCREATOR: TFIBStringField
      DisplayLabel = #1057#1086#1079#1076#1072#1085#1086'|'#1055#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1100
      FieldName = 'CREATOR'
      Size = 100
      EmptyStrToNull = True
    end
    object dsDebtPropertyCREATEDATE: TFIBDateField
      DisplayLabel = #1057#1086#1079#1076#1072#1085#1086'|'#1044#1072#1090#1072
      FieldName = 'CREATEDATE'
    end
    object dsDebtPropertyMODIFIER: TFIBStringField
      DisplayLabel = #1048#1079#1084#1077#1085#1077#1085#1086'|'#1055#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1100
      FieldName = 'MODIFIER'
      Size = 100
      EmptyStrToNull = True
    end
    object dsDebtPropertyMODIFYDATE: TFIBDateField
      DisplayLabel = #1048#1079#1084#1077#1085#1077#1085#1086'|'#1044#1072#1090#1072
      FieldName = 'MODIFYDATE'
    end
    object dsDebtPropertyIS_DELETED: TFIBSmallIntField
      FieldName = 'IS_DELETED'
    end
  end
  object dscDebtProperty: TDataSource
    DataSet = dsDebtProperty
    OnDataChange = dscDebtorDataChange
    Left = 678
    Top = 154
  end
  object dsDebts: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE RST_DEBTOR_PROPERTY'
      'SET '
      '    PROP_TYPE = :PROP_TYPE,'
      '    PROP_NAME = :PROP_NAME,'
      '    PROP_NOTES = :PROP_NOTES,'
      '    IS_DELETED = :IS_DELETED'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    RST_DEBTOR_PROPERTY'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO RST_DEBTOR_PROPERTY('
      '    ID,'
      '    DEBTOR_ID,'
      '    PROP_TYPE,'
      '    PROP_NAME,'
      '    PROP_NOTES'
      ')'
      'VALUES('
      '    :ID,'
      '    :DEBTOR_ID,'
      '    :PROP_TYPE,'
      '    :PROP_NAME,'
      '    :PROP_NOTES'
      ')')
    RefreshSQL.Strings = (
      'SELECT'
      '    dp.ID,'
      '    dp.DEBTOR_ID,'
      '    pt.name as proptypename,'
      '    dp.PROP_TYPE,'
      '    dp.PROP_NAME,'
      '    dp.PROP_NOTES,'
      
        '    (select rname from PR_GET_USER_NAME(dp.createuserid)) as cre' +
        'ator,'
      '    dp.createdate,'
      
        '    (select rname from PR_GET_USER_NAME(dp.modifyuserid)) as mod' +
        'ifier,'
      '    dp.modifydate,'
      '    dp.is_deleted'
      'FROM'
      '    RST_DEBTOR_PROPERTY dp '
      '   left join spr_prop_types pt on pt.id = dp.PROP_TYPE'
      'where(  dp.DEBTOR_ID = :pdebtor_id'
      '  and dp.IS_DELETED = 0'
      '     ) and (     DP.ID = :OLD_ID'
      '     )'
      '    ')
    SelectSQL.Strings = (
      
        'select d.town, d.contragent, d.period, d.kind, d.summa_cur, d.cl' +
        'osed'
      'from vw_debts d'
      'where d.debtor_id = :pdebtor_id'
      '  and d.is_deleted = 0')
    Transaction = trDebtor
    Database = MAINDM.MainDB
    Left = 644
    Top = 192
    object dsDebtsTOWN: TFIBStringField
      DisplayLabel = #1053#1072#1089'.'#1087#1091#1085#1082#1090
      FieldName = 'TOWN'
      Size = 32
      EmptyStrToNull = True
    end
    object dsDebtsCONTRAGENT: TFIBStringField
      DisplayLabel = #1070#1088'.'#1083#1080#1094#1086
      FieldName = 'CONTRAGENT'
      EmptyStrToNull = True
    end
    object dsDebtsPERIOD: TFIBStringField
      DisplayLabel = #1055#1077#1088#1080#1086#1076' '#1079#1072#1076#1086#1083#1078'.'
      FieldName = 'PERIOD'
      EmptyStrToNull = True
    end
    object dsDebtsKIND: TFIBStringField
      DisplayLabel = #1042#1080#1076' '#1079#1072#1076#1086#1083#1078'.'
      FieldName = 'KIND'
      Size = 32
      EmptyStrToNull = True
    end
    object dsDebtsSUMMA_CUR: TFIBBCDField
      DisplayLabel = #1057#1091#1084#1084#1072' '#1090#1077#1082#1091#1097#1072#1103
      FieldName = 'SUMMA_CUR'
      Size = 2
      RoundByScale = True
    end
    object dsDebtsCLOSED: TFIBSmallIntField
      DisplayLabel = #1047#1072#1082#1088#1099#1090
      FieldName = 'CLOSED'
    end
  end
  object dscDebts: TDataSource
    DataSet = dsDebts
    OnDataChange = dscDebtorDataChange
    Left = 678
    Top = 194
  end
end
